url-registered-auth-schemes)))))
(defun url-auth-registered (scheme)
- ;; Return non-nil iff SCHEME is registered as an auth type
+ "Return non-nil if SCHEME is registered as an auth type."
(assoc scheme url-registered-auth-schemes))
(provide 'url-auth)
;;;###autoload
(defun url-cache-expired (url mod)
- "Return t iff a cached file has expired."
+ "Return t if a cached file has expired."
(let* ((urlobj (if (vectorp url) url (url-generic-parse-url url)))
(type (url-type urlobj)))
(cond
(defun url-dav-unlock-resource (url lock-token)
"Release the lock on URL represented by LOCK-TOKEN.
-Returns t iff the lock was successfully released."
+Returns t if the lock was successfully released."
(declare (special url-http-response-status))
(let* ((url-request-extra-headers (list (cons "Lock-Token"
(concat "<" lock-token ">"))))
(or (plist-get properties 'DAV:getcontentlength) 0)
;; file modes as a string like `ls -l'
- ;;
+ ;;
;; Should be able to build this up from the
;; DAV:supportedlock attribute pretty easily. Getting
;; the group info could be impossible though.
(url-dav-file-attributes-mode-string properties)
- ;; t iff file's gid would change if it were deleted &
+ ;; t if file's gid would change if it were deleted &
;; recreated. No way for us to know that thru DAV.
nil
found))
(defun url-file-host-is-local-p (host)
- "Return t iff HOST references our local machine."
+ "Return t if HOST references our local machine."
(let ((case-fold-search t))
(or
(null host)
;;; Required functions for a vc backend
(defun vc-dav-registered (url)
- "Return t iff URL is registered with a DAV aware server."
+ "Return t if URL is registered with a DAV aware server."
(url-dav-vc-registered url))
(defun vc-dav-state (url)